
'The Magic 6 ball - version 2
'Written by Joshua Moore and Brad Moore'
'Copyright 2002, all rights reserved
'written for LB3.x
'You are free to incorporate any portion of this code
'into your own programs without notification or credit
'to the authors.  Please do not distribute as-is.

'DIMension a string array to hold the answers
'Vertaling G.Rahman

DIM answer$(6)

'Ken nu een tekst toe aan elke array element
answer$(1) = "Misschien..."
answer$(2) = "Nee! - Nooit - Vraag dat niet meer!"
answer$(3) = "Dat is nu niet duidelijk."
answer$(4) = "Ja zeker"
answer$(5) = "Waarschijnlijk niet..."
answer$(6) = "Je kunt erop rekenen!"

'Start the interaction with the user
print "Hallo - Ik ben zo ver om Magic 6 Ball te spelen."

[getPlayer]
print "Enter je naam alstublief ";
input name$
print ""

if name$ = "" then
  print "Je hebt geen naam ingevoerd! "
  print "Probeer opnieuw... ";
  goto [getPlayer]
end if

[instructions]
Print ""
print "Ik ben de Magic 6 ball - Ik kan de toekomst voorspellen..."
print "Stel me een (ja of nee) vraag en ik zal het antwoord geven!"
print ""

[loop]
print name$; " Wat zou je de Magic 6 ball willen vragen,"
print "(s.v.p. een 'ja' of 'nee' vraag) ";
input question$
print ""

if question$ = "" then
  print "Sorry, ik hoorde niets."
  print "  Misschien zou je wat luider moeten spreken. ";
  goto [loop]
end if

'haal een random getal op tussen 1 en 6
number = int(rnd(1)*6) + 1

'print het antwoord nu eenvoudig
print answer$(number)

[playagain]
  'ask if they want to play again
  print ""
  print "Nog een spelletje? - (y = yes)";
  input answer$
  if answer$ = "y" or answer$ = "Y" then
     cls
     goto [loop]
  end if

print "Thanks for playing"


